www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_proclass.asp
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<!--#include file="top.htm"-->
<br>
<%
select case request("action")
case ""
call main()
case "badd"
call addbclass()
case "bbadd"
call addbbclass()
case "addsave"
call addsave()
case "bedit"
call bedit()
case "beditsave"
call beditsave()
case "bdell"
call bdell()
case "sedit"
call sedit()
end select
%>
<%
sub main()
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select * from Tsm_probc order by Cpx"
rsbclass.open sqlbclass,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>类 别 管 理</b></font></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF"><a href="?Action=bbadd">增加一级类别</a></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#E0E0E0" class="text">
<tr align="center" bgcolor="#F6F6F6">
<td width="10%" bgcolor="#F6F6F6">排序</td>
<td width="40%" height="25" bgcolor="#F6F6F6">类 别 名 称</td>
<td width="40%">操 作 选 项</td>
<td width="10%">信 息 统 计</td>
</tr>
<%
do while not rsBClass.eof
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" align="center"><%= rsbclass("Cpx") %></td>
<td height="25" align="left" valign="middle"> <strong><%= rsbclass("Aname") %></strong></td>
<td height="25"> <a href="?Action=bedit&bcid=<%= rsbclass("Aid") %>">修改</a> | <a href="?Action=bdell&bcid=<%= rsbclass("Aid") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除？删除数据将无法逆回！');">删除</a> </td>
<td height="25">共
<%sql="select count(id) from tsm_pro where Aid="&rsbclass("Aid")&""
set totle=conn.execute(sql)
totle=totle(0)%><font color="#FF0000"><%=totle%></font>条信息</td>
</tr>
<%
Aid=rsbclass("Aid")
set rssclass=server.createobject("adodb.recordset")
sqlsclass="select * from Tsm_prosc where Aid="+cstr(Aid)+" order by Cpx"
rssclass.open sqlsclass,conn,1,1
%>
<% if rssclass.eof or rssclass.bof then
'response.Write("<tr align=center bgcolor=#F7F7F7><td height='23'></td><td align=left> <font color=cccccc>├ 暂无子类别，请添加！</font></td><td><font color=cccccc>[ 修改 ] [ 删除 ]</font></td></td><td></tr>")
else
do while not rssclass.eof
%>
<tr align="center" bgcolor="#F9F9F9">
<td height="22"></td>
<td height="22"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" align="center" valign="middle"><%= rssclass("Cpx") %></td>
<td width="80%">├ <%= rssclass("Bname") %></td>
</tr>
</table> </td>
<td height="22">[ <a href="?Action=sedit&scid=<%= rssclass("Bid") %>">修改</a> ] [ <a href="?Action=bdell&scid=<%= rssclass("Bid") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除？删除数据将无法逆回！');">删除</a> ]</td>
<td height="22">共
<%sql="select count(id) from tsm_pro where Bid="&rsSclass("Bid")&""
set totle=conn.execute(sql)
totle=totle(0)%><font color="#FF0000"><%=totle%></font>件产品</td>
</tr>
<%
rssclass.movenext
loop
rssclass.close
set rssclsss=nothing
end if
%>
<%
rsBclass.movenext
loop
rsbclass.close
set rsbclsss=nothing
%>
</table>
<table width="90%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="middle"><font color="#FF0000">* 注意：删除大类，将同时删除大类下属的所有产品！</font></td>
</tr>
</table>
<%
end sub
%>
<%
sub addbbclass()
set rspaixu=server.createobject("adodb.recordset")
paixusql="select * from Tsm_probc order by cpx desc"
rspaixu.open paixusql,conn,1,1
if not rspaixu.eof then
thelastpaixu=rspaixu("cpx")+1
else
thelastpaixu=1
end if
rspaixu.close
set rspaixu=nothing
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="myform" method="post" action="?action=addsave">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>添 加 一 级 类</b></font></td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"><br>
一级类名称：
<input name="Aname" type="text" id="Aname" size="20" maxlength="50">
<input style="display:none" name="Anamee" type="text" id="Anamee" size="20" maxlength="50">
<input name="Cpx" style="display:none" type="text" id="Cpx" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false" value="<%=thelastpaixu%>"></td>
</tr>
<tr<%=hiddentable(0)%>>
<td valign="middle" bgcolor="#FFFFFF" align="center"><br>
类图片：
<input name="Propic" type="text" id="Propic" size="20"> <IFRAME src="Upimage.asp" name=head width=270 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit2" type="submit" id="Submit2" value=" 添 加 ">
<input type="button" name="Submit2" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub addbclass()
dim bcid
bcid=trim(request("bcid"))
bcid=CLng(bcid)
set rs2=server.createobject("adodb.recordset")
sql2="select Aname,Anamee,Aid from Tsm_probc where Aid="& bcid
rs2.open sql2,conn,1,1
wheres="and Aid="& bcid &""
set rspaixu=server.createobject("adodb.recordset")
paixusql="select * from Tsm_prosc where 1=1 "&wheres&" order by cpx desc"
rspaixu.open paixusql,conn,1,1
if not rspaixu.eof then
thelastpaixu=rspaixu("cpx")+1
else
thelastpaixu=1
end if
rspaixu.close
set rspaixu=nothing
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="form1" method="post" action="?action=addsave">
<tr>
<td align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>添 加 二 级</b></font></td>
</tr>
<tr>
<td height="45" align="center" bgcolor="#FFFFFF">在<b><font color="#FF0000">[<%= rs2("Aname") %>]</font></b>中添加子类：
<input name="Aid" type="hidden" id="Aid" value="<%=rs2("Aid")%>">
<%if en_switch=0 then%><%else%>(中)<%end if%><input name="bname" type="text" id="bname" size="20" maxlength="50">
<%if en_switch=0 then%><%else%>(英)<input name="bnamee" type="text" id="bnamee" size="20" maxlength="50"><%end if%>
排序：
<input name="Cpx" type="text" id="Cpx" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false" value="<%=thelastpaixu%>"></td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 添 加 ">
<input type="button" name="Submit22" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub bedit()
dim bcid
bcid=trim(request("bcid"))
bcid=CLng(bcid)
set rs2=server.createobject("adodb.recordset")
sql2="select * from Tsm_probc where Aid="& bcid
rs2.open sql2,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="myform" method="post" action="?action=beditsave">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 一 级 类 名</b></font></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><br>
将类名<b><font color="#FF0000">[<%= rs2("Aname") %>]</font></b>修改为：
<input name="Aid" type="hidden" id="Aid" value="<%= rs2("Aid") %>">
<input name="Aname" type="text" id="Aname" value="<%=rs2("Aname") %>" size="20" maxlength="50">
<input name="Anamee" style="display:none" type="text" id="Anamee" value="<%=rs2("Anamee") %>" size="20" maxlength="50">
<input name="Cpx" style="display:none" type="text" id="Cpx" value="<%=rs2("Cpx")%>" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false"></td>
</tr>
<tr<%=hiddentable(0)%>>
<td valign="middle" bgcolor="#FFFFFF" align="center"><br>
类图片：
<input name="Propic" type="text" id="Propic" size="20" value="<%=rs2("Propic")%>"> <IFRAME src="Upimage.asp" name=head width=270 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 修 改 ">
<input type="button" name="Submit23" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub sedit()
dim scid
scid=trim(request("scid"))
scid=CLng(scid)
set rs2=server.createobject("adodb.recordset")
sql2="select * from Tsm_prosc where Bid="& scid
rs2.open sql2,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="form1" method="post" action="?action=beditsave">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 二 级 类 名</b></font></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><br>
将子类<b><font color="#FF0000">[<%= rs2("Bname") %>]</font></b>修改为：
<input name="Bid" type="hidden" id="Bid" value="<%= rs2("Bid") %>">
<%if en_switch=0 then%><%else%>(中)<%end if%><input name="Bname" type="text" id="Bname" value="<%= rs2("Bname") %>" size="20" maxlength="50">
<%if en_switch=0 then%><%else%>(英)<input name="Bnamee" type="text" id="Bnamee" value="<%= rs2("Bnamee") %>" size="20" maxlength="50"><%end if%>
排序：
<input name="Cpx" type="text" id="Cpx" value="<%= rs2("Cpx") %>" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false">
</td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 修 改 ">
<input type="button" name="Submit24" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
</body>
</html>
<%
sub addsave()
dim bclassid,sclassname,sclassnamee,Cpx
bclassid=request("Aid")
sclassname=request("Bname")
sclassnamee=request("Bnamee")
Cpx=request("Cpx")
if trim(request("Aname"))="" and trim(request("Aid"))="" then
call ShowAlert("大类名称不可为空，请输入类别名称！","")
ElseIf trim(request("Aname"))="" and trim(request("Aid"))<>"" and trim(request("Bname"))="" Then
call ShowAlert("小类名称不可为空，请输入类别名称！","")
ElseIf trim(request("cpx"))="" and IsNumeric(request("cpx"))=False Then
call ShowAlert("排序必须是数字！","")
else
set rs=server.createobject("adodb.recordset")
if bclassid<>"" then
sql1="select * from Tsm_prosc"
rs.open sql1,conn,1,3
rs.AddNew
rs("Aid") = bclassid
rs("Bname") = sclassname
rs("Bnamee") = sclassnamee
rs("cpx") = cpx
else
sql1="select * from Tsm_probc"
rs.open sql1,conn,1,3
rs.AddNew
rs("Aname") = request("Aname")
rs("Anamee") = request("Anamee")
rs("cpx") = cpx
rs("Propic") = request("Propic")
end if
rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing
end if
if bclassid<>"" then
call ShowAlert("添加 [ "&sclassname&" ] 子类成功！","Manage_proclass.asp")
else
call ShowAlert("一级类添加成功！","Manage_proclass.asp")
end if
end sub
%>
<%
sub beditsave()
set rs=server.createobject("adodb.recordset")
if request("Aid")<>"" then
sql1="select * from Tsm_probc where Aid="& request("Aid")
rs.open sql1,conn,1,3
rs("Aname") = request("Aname")
rs("Anamee") = request("Anamee")
rs("Cpx") = request("Cpx")
rs("Propic") = request("Propic")
else
sql1="select * from Tsm_prosc where Bid="& request("Bid")
rs.open sql1,conn,1,3
rs("Bname") = request("Bname")
rs("Bnamee") = request("Bnamee")
rs("Cpx") = request("Cpx")
end if
rs.update
rs.close
Set rs=nothing
conn.close
Set conn=nothing
call ShowAlert("修改成功！","Manage_proclass.asp")
end sub
%>
<%
sub bdell
bcid = Request("bcid")
if bcid<>"" then
'删除大类
sql="delete from Tsm_probc where Aid=" & bcid
conn.execute sql
'删除属于该大类的子栏目
'sql="delete from Net_sclass where bclassid=" & bcid
'conn.execute sql
'删除属于该大类的文章
'sql="delete from Net_article where bclassid=" & bcid
'conn.execute sql
else
scid=request("scid")
sql="delete from Tsm_prosc where Bid=" & scid
conn.execute sql
'删除属于该大类的文章
'sql="delete from Net_article where sclassid=" & scid
'conn.execute sql
end if
response.Redirect("Manage_proclass.asp")
end sub
%>